home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / BlockValue.p < prev    next >
Text File  |  2004-01-31  |  2KB  |  51 lines
  1. pTempVar <- <primitive 110 7 >
  2. <primitive 112 pTempVar 1  " setBlock:arguments: " \
  3.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16r22 16r61 16r51 16r11 16rA3 16rE1 \
  4.         16r03 16r07 16r11 16r23 16rB1 16r20 16r81 16r01 16rF3 16r82 \
  5.         16r02 16rF2 16rF5] \
  6.     #( #setBlock: #addDependent: #to:do:  )) >
  7.  
  8. <primitive 112 pTempVar 2  " setBlock: " \
  9.   #( #[ 16r21 16r60 16r10 16r80 16r00 16r62 16r20 16r90 16r01 16rF2 16r32 \
  10.         16r61 16rF5] \
  11.     #( #numArgs #resetCache #( )  )) >
  12.  
  13. <primitive 112 pTempVar 3  " computeValue " \
  14.   #( #[ 16r50 16r12 16rC9 16rF7 16r03 16r10 16rA5 16rF3 16rF2 16r51 16r12 \
  15.         16rC9 16rF7 16r07 16r10 16r11 16r51 16rB1 16rA5 16rB5 16rF3 \
  16.         16rF2 16r52 16r12 16rC9 16rF7 16r0B 16r10 16r11 16r51 16rB1 \
  17.         16rA5 16r11 16r52 16rB1 16rA5 16rD3 16rF3 16rF2 16r53 16r12 \
  18.         16rC9 16rF7 16r10 16r10 16r11 16r51 16rB1 16rA5 16r11 16r52 \
  19.         16rB1 16rA5 16r11 16r53 16rB1 16rA5 16r83 16r00 16rF3 16rF2 \
  20.         16r05 16r1E 16r12 16r11 16rA3 16rCF 16rB0 16r71 16r51 16r21 \
  21.         16rA3 16rE1 16r02 16r08 16r21 16r22 16r11 16r22 16rB1 16rA5 \
  22.         16rD0 16rF3 16r82 16r01 16rF2 16r10 16r21 16r81 16r02 16rF3 \
  23.         16rF5] \
  24.     #( #value:value:value: #to:do: #valueWithArguments:  )) >
  25.  
  26. <primitive 112 pTempVar 4  " parts " \
  27.   #( #[ 16r11 16r5D 16rB6 16rF7 16r05 16r05 16r1E 16rA0 16rF1 16r61 16rF2 \
  28.         16r11 16rF3 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 5  " dependOn: " \
  32.   #( #[ 16r21 16r20 16r81 16r00 16rF2 16r20 16r80 16r01 16r21 16r81 16r02 \
  33.         16r61 16rF5] \
  34.     #( #addDependent: #parts #copyWith:  )) >
  35.  
  36. <primitive 112 pTempVar 6  " with: " \
  37.   #( #[ 16r20 16rA0 16r21 16r05 16r38 16rA0 16r82 16r00 16rF3 16rF5] \
  38.     #( #setBlock:arguments:  )) >
  39.  
  40. <primitive 112 pTempVar 7  " block:arguments: " \
  41.   #( #[ 16r20 16rA0 16r21 16r22 16r82 16r00 16rF3 16rF5] \
  42.     #( #setBlock:arguments:  )) >
  43.  
  44. <primitive 98 #BlockValue \
  45.   <primitive 97 #BlockValue #ComputedValue #AmigaTalk:General/BlockValue.st \
  46.    #(  #myBlock #arguments #numArgs ) \
  47.    #( #setBlock:arguments: #setBlock: #computeValue #parts #dependOn: #with:  \
  48.        #block:arguments:  ) \
  49.   pTempVar 4 9 > #ordinary >
  50.  
  51.